home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Visio 2000 Clear Items.xpl < prev    next >
Text File  |  2000-10-01  |  2KB  |  91 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="5"
  3. "COUNT"="4"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 2000\Visio 2000"
  5. "NAME"="Visio 2000 Clear Items"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Clear file list"
  9. "TEXT 2"="Clear font list"
  10. "TEXT 3"="Clear stencil list"
  11. "TEXT 4"="Clear template list"
  12. "DESCRIPTION 1"="To clear list of files, fonts, stencils and templates used with Visio 2000, click the associated buttons."
  13. "AUTHOR"="Ojatex@aol.com"
  14. "CONTACTURL"="http://members.aol.com/ojatex/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17. "COMMENT 2"="Thanks to CptSiskoX for the tip"
  18.  
  19. sP="HKCU\Software\Visio\Visio 2000\application\"
  20.  
  21. Sub Plugin_Initialize 
  22.   If RegPathExists(sP)=false then
  23.      Disable()
  24.   end if 
  25. End Sub
  26.  
  27. Sub Plugin_CheckData(ElementIndex)
  28. End Sub
  29.  
  30. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  31.  if ElementIndex=1 then     
  32.     for l=0 to 30
  33.         s="LastFile" & l
  34.         v=RegReadValue(sP & s)
  35.         
  36.         If IsEmpty(v)=false then
  37.            Call RegDeleteValue(sP & S)
  38.         end if
  39.     Next
  40.  
  41.     Call MsgInformation("File List Cleared!")
  42.  end if
  43.  
  44. if ElementIndex=2 then     
  45.     for l=0 to 30
  46.         s="LastFont" & l
  47.         v=RegReadValue(sP & s)
  48.         
  49.         If IsEmpty(v)=false then
  50.            Call RegDeleteValue(sP & S)
  51.         end if
  52.     Next
  53.  
  54.     Call MsgInformation("Font List Cleared!")
  55.  end if
  56.  
  57. if ElementIndex=3 then     
  58.     for l=0 to 30
  59.         s="LastStencil" & l
  60.         v=RegReadValue(sP & s)
  61.         
  62.         If IsEmpty(v)=false then
  63.            Call RegDeleteValue(sP & S)
  64.         end if
  65.     Next
  66.  
  67.     Call MsgInformation("Stencil List Cleared!")
  68.  end if
  69.  
  70. if ElementIndex=4 then     
  71.     for l=0 to 30
  72.         s="LastTemplate" & l
  73.         v=RegReadValue(sP & s)
  74.         
  75.         If IsEmpty(v)=false then
  76.            Call RegDeleteValue(sP & S)
  77.         end if
  78.     Next
  79.  
  80.     Call MsgInformation("Template List Cleared!")
  81.  end if
  82.  
  83.  
  84.  
  85.  
  86.  
  87. End Sub
  88.  
  89. Sub Plugin_Terminate 
  90. End Sub
  91.